Remax Data/Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO/fp26_rmx/array.bak

Text File | 1994-07-05 | 4.0 KB | 292 lines

CLOSE DATABASES
USE ROSTER
PRIVATE M.Records
COUNT TO M.Records


M.Count = 1
M.Size = 0

DIMENSION Magic(1,1),Search(1,1)

DO WHILE Count <= M.Records

    COPY RECORD Count TO ARRAY Search FIELDS Offname

    M.Count = M.Count + 1

    String = PROPER(ALLTRIM(Search[1,1]))

    Match = ASCAN(Magic, String)

    IF NOT EMPTY(String)
        IF Match == 0
            M.Size = M.Size + 1
            DIMENSION Magic[Size,1]

            Magic[M.Size,1] = String
        ENDIF
    ENDIF

    IF M.Count % 2000 = 0
        ? Count
    ENDIF


ENDDO

=ASORT(Magic)

CREATE TABLE Office.dbf ;
    (Office_Name C(30))
USE Office
APPEND FROM ARRAY Magic
CLOSE DATABASES

USE ROSTER
DIMENSION Magic(1,1),Search(1,1)

M.Count = 1
M.Size = 0
? 'Position'
DO WHILE Count <= M.Records

    COPY RECORD Count TO ARRAY Search FIELDS Posistion

    M.Count = M.Count + 1

    String = PROPER(ALLTRIM(Search[1,1]))

    Match = ASCAN(Magic, String)

    IF NOT EMPTY(String)
        IF Match == 0
            M.Size = M.Size + 1
            DIMENSION Magic[Size,1]

            Magic[M.Size,1] = String
        ENDIF
    ENDIF

    IF M.Count % 2000 = 0
        ? Count
    ENDIF


ENDDO

=ASORT(Magic)

CREATE TABLE Position.dbf ;
    (Pos C(30))
USE Position
APPEND FROM ARRAY Magic
CLOSE DATABASES

DIMENSION Magic(1,1),Search(1,1)

M.Count = 1
M.Size = 0
? 'OffAddress1'
DO WHILE Count <= M.Records

    COPY RECORD Count TO ARRAY Search FIELDS Offadd1

    M.Count = M.Count + 1

    String = PROPER(ALLTRIM(Search[1,1]))

    Match = ASCAN(Magic, String)

    IF NOT EMPTY(String)
        IF Match == 0
            M.Size = M.Size + 1
            DIMENSION Magic[Size,1]

            Magic[M.Size,1] = String
        ENDIF
    ENDIF

    IF M.Count % 2000 = 0
        ? Count
    ENDIF


ENDDO

=ASORT(Magic)

CREATE TABLE Address.dbf ;
    (Address C(30))
USE Address
APPEND FROM ARRAY Magic
CLOSE DATABASES

DIMENSION Magic(1,1),Search(1,1)

M.Count = 1
M.Size = 0
? 'City'
DO WHILE Count <= M.Records

    COPY RECORD Count TO ARRAY Search FIELDS City

    M.Count = M.Count + 1

    String = PROPER(ALLTRIM(Search[1,1]))

    Match = ASCAN(Magic, String)

    IF NOT EMPTY(String)
        IF Match == 0
            M.Size = M.Size + 1
            DIMENSION Magic[Size,1]

            Magic[M.Size,1] = String
        ENDIF
    ENDIF

    IF M.Count % 2000 = 0
        ? Count
    ENDIF


ENDDO

=ASORT(Magic)

CREATE TABLE City.dbf ;
    (City C(17))
USE City
APPEND FROM ARRAY Magic
CLOSE DATABASES

DIMENSION Magic(1,1),Search(1,1)

M.Count = 1
M.Size = 0
? 'Position'
DO WHILE Count <= M.Records

    COPY RECORD Count TO ARRAY Search FIELDS Rostersta

    M.Count = M.Count + 1

    String = PROPER(ALLTRIM(Search[1,1]))

    Match = ASCAN(Magic, String)

    IF NOT EMPTY(String)
        IF Match == 0
            M.Size = M.Size + 1
            DIMENSION Magic[Size,1]

            Magic[M.Size,1] = String
        ENDIF
    ENDIF

    IF M.Count % 2000 = 0
        ? Count
    ENDIF


ENDDO

=ASORT(Magic)

CREATE TABLE State.dbf ;
    (State_Prov C(30))
USE State
APPEND FROM ARRAY Magic
CLOSE DATABASES

DIMENSION Magic(1,1),Search(1,1)

M.Count = 1
M.Size = 0
? 'License'
DO WHILE Count <= M.Records

    COPY RECORD Count TO ARRAY Search FIELDS License

    M.Count = M.Count + 1

    String = Search[1,1]

    Match = ASCAN(Magic, String)

    IF NOT EMPTY(String)
        IF Match == 0
            M.Size = M.Size + 1
            DIMENSION Magic[Size,1]

            Magic[M.Size,1] = String
        ENDIF
    ENDIF

    IF M.Count % 2000 = 0
        ? Count
    ENDIF


ENDDO

=ASORT(Magic)

CREATE TABLE License.dbf ;
    (Year N(4))
USE License
APPEND FROM ARRAY Magic
CLOSE DATABASES

DIMENSION Magic(1,1),Search(1,1)

M.Count = 1
M.Size = 0
? 'Join'
DO WHILE Count <= M.Records

    COPY RECORD Count TO ARRAY Search FIELDS Join

    M.Count = M.Count + 1

    String = Search[1,1]

    Match = ASCAN(Magic, String)

    IF NOT EMPTY(String)
        IF Match == 0
            M.Size = M.Size + 1
            DIMENSION Magic[Size,1]

            Magic[M.Size,1] = String
        ENDIF
    ENDIF

    IF M.Count % 2000 = 0
        ? Count
    ENDIF


ENDDO

=ASORT(Magic)

CREATE TABLE Join.dbf ;
    (Year N(4))
USE Join
APPEND FROM ARRAY Magic
CLOSE DATABASES